home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / HyperCard / Education / Weights & Measures / card_14858.txt < prev    next >
Encoding:
Text File  |  1991-10-27  |  4.1 KB  |  192 lines
  1. -- card: 14858 from stack: in
  2. -- bmap block id: 15209
  3. -- flags: 0000
  4. -- background id: 2785
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: A002
  11. -- rect: left=17 top=165 right=189 bottom=124
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Start Date
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global x
  23.   hide msg box
  24.   ask "Enter Start Date (mm/dd/yy)"
  25.   put empty into card field 1
  26.   put empty into card field 2
  27.   put empty into card field 3
  28.   put empty into card field 4
  29.   put empty into x
  30.   put empty into z
  31.   put empty into y
  32.   if char 2 of it is "/" then put char 1 of it into z
  33.   if char 2 of it is not "/" then put char 1 of it & char 2 of it into z
  34.   if z < 13 then
  35.     convert it to Abbr Date
  36.     put it into x
  37.     put word 2 of item 2 of it into a
  38.     put word 1 of item 2 of it into b
  39.     put char 4 of item 3 of it & char 5 of item 3 of it into c
  40.     put a&"-"&b&"-"&c into card field 1
  41.     convert x to Seconds
  42.   else
  43.     put "Wrong Format" into msg box
  44.     play "boing"
  45.   end if
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 3 (field)
  51. -- low flags: 01
  52. -- high flags: 0002
  53. -- rect: left=17 top=187 right=206 bottom=124
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: 
  62.  
  63.  
  64. -- part 4 (button)
  65. -- low flags: 00
  66. -- high flags: A002
  67. -- rect: left=163 top=137 right=156 bottom=233
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Days
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   global x
  79.   ask "Number Of Days"
  80.   put empty into card field 2
  81.   put empty into card field 3
  82.   put empty into card field 4
  83.   put it into card field 2
  84.   multiply it by 24*60*60
  85.   Put it + x into y
  86.   convert y to abbr date
  87.   put word 2 of item 2 of y into a
  88.   put word 1 of item 2 of y into b
  89.   put char 4 of item 3 of y & char 5 of item 3 of y into c
  90.   put a&"-"&b&"-"&c into card field 4
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 5 (button)
  96. -- low flags: 00
  97. -- high flags: A002
  98. -- rect: left=162 top=194 right=215 bottom=232
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Weeks
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   global x
  110.   ask "Number Of Weeks"
  111.   put empty into card field 3
  112.   put empty into card field 2
  113.   put empty into card field 4
  114.   put it into card field 3
  115.   multiply it by 7*24*60*60
  116.   Put it + x into y
  117.   convert y to abbr date
  118.   put word 2 of item 2 of y into a
  119.   put word 1 of item 2 of y into b
  120.   put char 4 of item 3 of y & char 5 of item 3 of y into c
  121.   put a&"-"&b&"-"&c into card field 4
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 7 (field)
  127. -- low flags: 01
  128. -- high flags: 0002
  129. -- rect: left=163 top=155 right=175 bottom=233
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: 
  138.  
  139.  
  140. -- part 8 (field)
  141. -- low flags: 01
  142. -- high flags: 0002
  143. -- rect: left=162 top=214 right=233 bottom=232
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: 
  152.  
  153.  
  154. -- part 10 (button)
  155. -- low flags: 00
  156. -- high flags: 8002
  157. -- rect: left=286 top=166 right=188 bottom=374
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Result Date
  166.  
  167.  
  168. -- part 11 (field)
  169. -- low flags: 01
  170. -- high flags: 0002
  171. -- rect: left=286 top=186 right=205 bottom=374
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: 
  180.  
  181.  
  182. -- part contents for card part 3
  183. ----- text -----
  184. 9-Jun-90
  185.  
  186. -- part contents for card part 8
  187. ----- text -----
  188. 52
  189.  
  190. -- part contents for card part 11
  191. ----- text -----
  192. 8-Jun-91